home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PROPROG.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  30 lines
  1. 10  HOME 
  2. 20  PRINT "            SELECTED PROGRAMS"
  3. 30  PRINT : PRINT 
  4. 40  PRINT "MOST OF THESE PROGRAMS WERE DESIGNED TO"
  5. 45  PRINT "WORK ON ALL APPLE II COMPUTERS THAT CAN"
  6. 50  PRINT "RUN PRODOS.  THIS MEANS AT LEAST 64K"
  7. 55  PRINT "MEMORY.  SOME CLONES WILL NOT RUN"
  8. 60  PRINT "PRODOS."
  9. 90  PRINT 
  10. 100  PRINT "SELECT PROGRAM YOU WANT BY NUMBER:"
  11. 200  PRINT 
  12. 1010  PRINT "   1.  FATHOM"
  13. 1020  PRINT "   2.  GRUNGY TOWERS"
  14. 1030  PRINT "   3.  JOTTO"
  15. 1040  PRINT "   4.  JOYSTICK TEST"
  16. 1050  PRINT "   5.  PENNY ARCHADE"
  17. 1060  PRINT "   6.  STARLANES"
  18. 1070  PRINT "   7.  TYPE.CHANGER (DANGER TO DISKS!)"
  19. 1080  PRINT "   8.  FREEWRITER (WORD PROCESSOR)"
  20. 1090  PRINT "   9.  FREEPRINTER (PRINT FREEWRITER)"
  21. 2000  INPUT "";A$:A =  VAL(A$)
  22. 2010  IF A = 1  THEN  PRINT  CHR$(4);"- FATHOM"
  23. 2020  IF A = 2  THEN  PRINT  CHR$(4);"- GRUNGY.TOWERS"
  24. 2030  IF A = 3  THEN  PRINT  CHR$(4);"- JOTTO"
  25. 2040  IF A = 4  THEN  PRINT  CHR$(4);"- JOYSTICK.TEST"
  26. 2050  IF A = 5  THEN  PRINT  CHR$(4);"- PENNY.ARCADE"
  27. 2060  IF A = 6  THEN  PRINT  CHR$(4);"- STARLANES"
  28. 2070  IF A = 7  THEN  PRINT  CHR$(4);"- TYPE.CHANGER"
  29. 2080  IF A = 8  THEN  PRINT  CHR$(4);"- FREEWRITER"
  30. 2090  IF A = 9  THEN  PRINT  CHR$(4);"- FREEPRINTER"